In term-window-width subtract 1 from width when any fringe has zero width. (Bug#18601)

* term.el (term-window-width): Subtract 1 from the width when
any fringe has zero width, not just the right fringe.  (Bug#18601)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 22937ad2ba864c46dc89483e9caff328e1160d4b..cd57c85f92bb34154a1f75ea4d61bcae3889abe9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-10-06  Martin Rudalics  <rudalics@gmx.at>
+
+       * term.el (term-window-width): Subtract 1 from the width when
+       any fringe has zero width, not just the right fringe.  (Bug#18601)
+
 2014-10-05  Leo Liu  <sdl.web@gmail.com>
 
        * imenu.el (imenu-default-goto-function): Fix typo.

diff --git a/lisp/term.el b/lisp/term.el
index ce6125e27900817418170e95a4aede760f16f330..f361b983e482ece0699d0004ee8313c5007fa75e 100644 (file)
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -974,6 +974,9 @@ is buffer-local."
   (if (and (not (featurep 'xemacs))
           (display-graphic-p)
           overflow-newline-into-fringe
+          ;; Subtract 1 from the width when any fringe has zero width,
+          ;; not just the right fringe.  Bug#18601.
+          (/= (frame-parameter nil 'left-fringe) 0)
           (/= (frame-parameter nil 'right-fringe) 0))
       (window-body-width)
     (1- (window-body-width))))